home *** CD-ROM | disk | FTP | other *** search
/ PC go! 2008 April / PCgo 2008-04 (DVD).iso / interface / contents / demoversionen_3846 / 13664 / files / Data1.cab / inet.bas < prev    next >
Encoding:
BASIC Source File  |  2001-10-16  |  2.9 KB  |  47 lines
  1. Attribute VB_Name = "modInet"
  2. '/******************************************************************/
  3. '/*                                                                */
  4. '/*                      TurboCAD for Windows                      */
  5. '/*                   Copyright (c) 1993 - 2001                    */
  6. '/*             International Microcomputer Software, Inc.         */
  7. '/*                            (IMSI)                              */
  8. '/*                      All rights reserved.                      */
  9. '/*                                                                */
  10. '/******************************************************************/
  11.  
  12. Option Explicit
  13. Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
  14. Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
  15. Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
  16. Declare Function RegQueryValueExString Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
  17. Declare Function RegQueryValueExLong Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Long, lpcbData As Long) As Long
  18. Declare Function RegQueryValueExNULL Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As Long, lpcbData As Long) As Long
  19. Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
  20. Const SYNCHRONIZE = &H100000
  21. Const READ_CONTROL = &H20000
  22. Const STANDARD_RIGHTS_READ = (READ_CONTROL)
  23. Const STANDARD_RIGHTS_WRITE = (READ_CONTROL)
  24. Const STANDARD_RIGHTS_ALL = &H1F0000
  25. Const KEY_QUERY_VALUE = &H1
  26. Const KEY_SET_VALUE = &H2
  27. Const KEY_CREATE_SUB_KEY = &H4
  28. Const KEY_ENUMERATE_SUB_KEYS = &H8
  29. Const KEY_NOTIFY = &H10
  30. Const KEY_CREATE_LINK = &H20
  31. Const KEY_READ = ((STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not SYNCHRONIZE))
  32. Public Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))
  33. Public Const HKEY_CLASSES_ROOT = &H80000000
  34. Public Const HKEY_CURRENT_CONFIG = &H80000005
  35. Public Const HKEY_CURRENT_USER = &H80000001
  36. Public Const HKEY_LOCAL_MACHINE = &H80000002
  37. Public Const ERROR_NONE = 0
  38. Public Const REG_SZ As Long = 1
  39. Public Const REG_DWORD As Long = 4
  40. Public Const SW_SHOW = 5
  41.  
  42.  
  43. Sub Main()
  44.  
  45. End Sub
  46.  
  47.